Código fuente de 'Trunca cadena.asp'
<html>
<head>
<title>Trunca cadenar - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Trunca cadena</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
Esta función permite truncar una cadena en una posición de la misma y además
añadir otra cadena a partir de esa posición.<br>
<br>
<b>Ejemplo:</b> TruncarCadena("Astalaweb.com una comunidad sin precedentes",13,"
es una página web")<br>
<b>Resultado:</b> <%
Function TruncarCadena(Cadena,MaxLong,NuevaCad)
If Not Len(Cadena) >= MaxLong Then
TruncarCadena = Cadena
Else
TruncarCadena = CStr(Trim(Left(Cadena, MaxLong+1)) + NuevaCad)
End If
End Function
response.write TruncarCadena("Astalaweb.com una comunidad sin precedentes",13," es una página web")
%></body></html>